home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / gsdb25.zip / DB_XPL02.PAS < prev    next >
Pascal/Delphi Source File  |  1990-11-27  |  518b  |  25 lines
  1. program DB_Xpl02;
  2. uses
  3.    CRT,
  4.    DOS,
  5.    GS_dBFld,
  6.    GS_dBase;
  7. var
  8.    Health  : GS_dBFld_Objt;
  9.  
  10. begin
  11.    ClrScr;
  12.    Health.Init('HEALTH');
  13.    Health.Open;
  14.    Health.Index('FOODNAME');        {Use Index FOODNAME.NDX}
  15.    Health.GetRec(Top_Record);
  16.    while not Health.File_EOF do
  17.    begin
  18.       writeln(Health.FieldGet('FOOD'),'   ',
  19.               Health.FieldGet('CALS'),'   (',
  20.               Health.FieldGet('FOOD_CODE'),')');
  21.       Health.GetRec(Next_Record);
  22.    end;
  23.    Health.Close;
  24. end.
  25.